home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / misc / toolbox.lha / Toolbox / lib / rex / Scanner.def < prev    next >
Encoding:
Text File  |  1993-03-11  |  580 b   |  26 lines
  1. (* $Id: Scanner.md,v 2.3 1992/08/18 09:05:32 grosch rel $ *)
  2.  
  3. $@ DEFINITION MODULE @;
  4.  
  5. IMPORT Strings;
  6.  
  7. $E user export declarations
  8.  
  9. CONST EofToken    = 0;
  10.  
  11. VAR TokenLength    : INTEGER;
  12. VAR Attribute    : tScanAttribute;
  13. VAR ScanTabName    : ARRAY [0 .. 127] OF CHAR;
  14. VAR Exit    : PROC;
  15.  
  16. PROCEDURE BeginScanner    ;
  17. PROCEDURE BeginFile    (FileName: ARRAY OF CHAR);
  18. PROCEDURE GetToken    (): INTEGER;
  19. PROCEDURE GetWord    (VAR Word: Strings.tString);
  20. PROCEDURE GetLower    (VAR Word: Strings.tString);
  21. PROCEDURE GetUpper    (VAR Word: Strings.tString);
  22. PROCEDURE CloseFile    ;
  23. PROCEDURE CloseScanner    ;
  24.  
  25. $@ END @.
  26.